home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_B.d64 / inst. flash-copy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  21 lines
  1. 1 fore=49152to49212:reada:pokee,a:next:sys65409:v=829:ve=828:poke53280,14:poke53281,6:poke646,6:print"[147]    [182]   [146]  [182]   [188]":print"    [180][146][180][170][170][146]    [146]  [187][188]":print"   [167][167][146] [182][182][146]  [167][167][146]    [146]":print"   [181][146][181] [161][146][161]  [182][182][146]  [190][172]":print"    [146]  [181][146][181]  [161][146][161]  [172]"
  2. 2 print"  [182]  [167][165][146][180]  [181][146][181]  [172][187][172] [187]            [162][162][162]":print"  [165][146][165]   [146]   [180][146][180]  [172][187][161][172][146] [162][187][188][146] [190][188][146] [190][162][188][146] [161][146][161] [188][190]":print" [167][167][146]  [170][170][146]    [146]   [180][146][180][165][146][180][172][162][187] [146] [165][146][165][161][146][161][162][190][146][161] [162] [146][162] ":print" [181][146][181]  [182][182][146][172][187][170][170][146]    [146]  [146]  [146]   [146]  [146] [165][146][180] [172][187][172][187] [161][146][161]"
  3. 3 print" [162][146][190]  [162][162][146][188][190][188][162][146]  [188][162][146][188][162][146] [188][162][162][162][146] [188][190][188][162][162][162][146]  [162][162][162][146]  ":print" [193] s s o c i a t e d    [208] i r a t e s ":print"[153] [205]embers:   [195][197][205]  ,  [208][212][195]  ,  [205][197][203]":print"[154][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":print" present :"
  4. 4 print"   [205][197][203]'s [158][198][204][193][211][200]-[195][207][208][217] [153][214]2.0[154][146] ([195])18.04.1985":print"         [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print" [215][197][204][195][207][205][197][160][212][207][160][212][200][197] [215][207][210][204][196][160][207][198][160][198][193][211][212][197][210][160][195][207][208][217][201][206][199]":print"     press key to continue":pokeve,13:fore=1to12:pokev,e:sys49152:next:fore=13to1step-1:pokev,e:sys49152:next:gosub19:poke646,6
  5. 5 print"[147][201]t took me about two months to complete":print" this program.  [201] took routines from":print" differrent programs even though they":print" needed many modifications.":print"[212]he following were used :"
  6. 6 print" * [195][207][208][217][160]58.5 [203] by [211]t.[194]uehne ([198][204][193][211][200]-[195][207][208][217][146]    was based on it).":print" * [198][193][211][212] [195][207][208][217] by [212]homas [212]empelmann":print"   (only the serial-bus routines)":print" * [208][201][206][203][160][198][204][207][217][196] by some unknown [198][201][206][206][201][211][200]":print"   person (the idea of executing a"
  7. 7 print"   program in the disk drive buffer":print"   with #$[197]0-command)":print" * [198][198][207][210][205][193][212] [214]1.1 from the 1541 fun club":print"   who had taken it from [212][200][197] [213][206][196][197][210][199][210][207][213][206][196]   [206][197][212][215][207][210][203] by [205]ike [202].[200]enry":print" * [197]specially '[212][200][197][160][193][206][193][212][207][205][217][160][207][198][160][212][200][197][160]1541     [196][201][211][203][160][196][210][201][214][197]'-book"
  8. 8 print" *** [205][193][206][217][160][212][200][193][206][203][211][160][212][207][160][193][204][204][160][193][194][207][214][197][160]***":gosub18:print"[147]       * [212]echnical information *":print" * [212]he program can have max. 31 file-":print"   names in memory":print" * [205]ax. file-length is 223 blocks (if":print"   the file is larger than 223 blocks"
  9. 9 print"   it can't be copied with [198][204][193][211][200]-[195][207][208][217][146])":gosub18:print"[147]            * [200]ow to use *":print" * 12 [211][197][195][207][206][196][211] [198][207][210][205][193][212]":print"       >[206][193][205][197],[201][196]< (there is no option":print"       for using only >[206][193][205][197]< )":print" * [196][201][211][208][204][193][217][201][206][199][160][196][201][210][197][195][212][207][210][217]"
  10. 10 print"       [196]irectory will pause from any":print"       key and will abort from [210][213][206]/[211][212][207][208]":print" * [200][193][206][196][204][201][206][199][160][198][201][204][197][211]":print"    * [195][207][208][217][201][206][199]":print"      select files normally":print"    * [211][195][210][193][212][195][200][201][206][199]":print"      select files normally and after"
  11. 11 print"      that select 1 or 2 (no difference":print"      between them).[212]hen select the":print"      scratch function '[211]'":print"  * [217]ou can move directly to copying":print"    (scratching) by pressing the [210][197][212][213][210][206]":print"    key when selecting the files.":gosub18
  12. 12 print"[147] * [196][201][211][203][160][195][207][205][205][193][206][196][211]":print"     [202]ust press 'd' and then you":print"     can type the disk command in.":print"   * for example:"chr$(13)"         r0:shit-copy=copy59":gosub18:print"[147] * [195][200][193][206][199][197][160][211][197][195][212][207][210][160][211][212][197][208][160][211][201][218][197]":print"     [208]ress 'c' and then you can change
  13. 13 [153]"     sector step size with cursor keys.":[153]"     * (NULL)ormal step size is 10.":[153]"       (NULL)ou can make writing faster":[153]"       changing step size to 14.":[153]"     * peekut normal reading (floyd ex.)":[153]"       will be slower.":[141]18
  14. 14 [153]"load              * (NULL)otes *":[153]" * (NULL)ou can't scratch files which are":[153]"     larger than 223 blocks (because":[153]"     the files are selected with the":[153]"     same routine as when wanted to":[153]"     copy them)."
  15. 15 [153]" * (NULL)he program can use two modes in":[153]"     writing. (NULL)hen (NULL)waitval(NULL)right$asc(NULL) right$(NULL) (NULL)(NULL) then":[153]"     the data is verified after writing":[153]"     else not. (NULL)waitval(NULL)right$asc(NULL)close(NULL)ascasccloseis though":[153]"     faster.":[153]" * (NULL)he program has full control over"
  16. 16 [153]"     all errors. (NULL)o it shouldn't":[153]"     lock up. peekut due to speed":[153]"     and memory reasons will errors":[153]"     22,(24,)27,29 be reported as 20":[141]18:[153]"load     (NULL)hank you for reading this,":[153]"     and also thanks to (NULL)-(NULL)(NULL)asc(NULL)"
  17. 17 [153]"     for creative ideas!!":[153]"     atnnd (NULL)(NULL) best (?) regards                         to  mid$left$!!":[153]"":[141]18:::[129]e[178]0[164]60:[153]:[130]:[153]"contload"[199](34)"flash-copy*"[199](34)",8":[153]"ononon";:[128]
  18. 18 ::[153]"       press any key to continue";:[151]ve,14:[129]e[178]1[164]24:[151]v,e:[158]49152:[130]:[129]e[178]25[164]1[169][171]1:[151]v,e:[158]49152:[130]
  19. 19 [146]198,1:[151]198,0:[151]ve,6:[129]e[178]1[164]24:[151]v,e:[158]49152:[130]:[153]"";:[142]:[131] 169,216,133,253,169,000,133:[131] 252,133,254,169,004,133,255:[131] 162,000,160,000,177,254,073:[131] 128,145,254,173,060,003,145:[131] 252,200,192,040,208,240,165:[131] 254,024,105,040,133,254,133
  20. 20 [131] 252,165,255,105,000,133,255:[131] 024,105,212,133,253,232,236:[131] 061,003,208,212,096
  21.